home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / pmsx222.zip / samples / example.cmd < prev    next >
OS/2 REXX Batch file  |  1995-07-11  |  3KB  |  67 lines
  1. /* example REXX script */
  2.  
  3. retval=pmsndx(test_mode,no)
  4. retval=PMSNDX(IGNORE_SYNTAX_ERRORS,NO)
  5.  
  6. data=query(pmsndx,"version")
  7. say "Version: " data
  8.  
  9. /* data=message(ask,ok,title,"Welcome",text,"Ready to record something?",icon,noicon,moveable,yes)
  10. filehandle3=audio(record,sync,monitor,yes,input,mic,quality,8,channels,1,rate,11025,overwrite,yes,count,10000)
  11. say "File Handle:  " filehandle3
  12. data=message(ask,ok,title,"Welcome",text,"Done recording!!!",icon,noicon,moveable,yes)
  13. retval=audio(HANDLE,filehandle3,play,sync) */
  14.  
  15. data=message(ask,okcancel,title,"Welcome",text,"Some may find these sounds offensive.  Press CANCEL to stop now.",icon,noicon,moveable,yes)
  16.  
  17. if data = "CANCEL" then return
  18.  
  19. data=file(openpath,'..\samples')
  20. say "fully qualified path: " data
  21. data=file(savepath,data)
  22. say "fully qualified path: " data
  23.  
  24. retval=display(toolpage,info)
  25.  
  26. filehandle=file(open,'brettapp.wav')
  27. say "File Handle:  " filehandle
  28. retval=audio(volume,20);
  29. data=message(ask,ok,title,"Welcome",text,"Audio should be set for 20",icon,noicon,moveable,yes)
  30. retval=audio(volume,80);
  31.  
  32. filehandle2=file(open,'brettapp.wav')
  33. retval=pmsndx(test_mode,yes)
  34. retval=PMSNDX(IGNORE_SYNTAX_ERRORS,yes)
  35. retval=edit(handle,filehandle,copy)
  36. retval=edit(handle,filehandle,cut)
  37. retval=edit(handle,filehandle,paste)
  38. retval=edit(handle,filehandle,zero)
  39. retval=edit(handle,filehandle,remove)
  40. retval=edit(handle,filehandle,clear)
  41. retval=edit(handle,filehandle,merge)
  42. retval=edit(handle,filehandle,undo)
  43. retval=edit(handle,filehandle,pastefrom)
  44. retval=edit(handle,filehandle,mergefrom)
  45. retval=edit(handle,filehandle,pastefrom,filehandle2)
  46. retval=edit(handle,filehandle,mergefrom,filehandle2)
  47. retval=PMSNDX(IGNORE_SYNTAX_ERRORS,no)
  48. retval=pmsndx(test_mode,no)
  49. retval=file(HANDLE,filehandle2,CLOSE)
  50.  
  51. retval=audio(HANDLE,filehandle,play,sync)
  52. data=message(ask,ok,title,"Welcome",text,"Let's try that asynchronously",icon,noicon,moveable,yes)
  53. retval=audio(HANDLE,filehandle,REWIND)
  54. retval=audio(HANDLE,filehandle,play,async)
  55.  
  56. data=message(ask,ok,title,"Welcome",text,"If you can come up with an interesting script to play this sample, drop me a line.",icon,noicon,moveable,yes)
  57.  
  58. filehandle1=file(open,'brettapp.wav')
  59. retval=audio(HANDLE,filehandle1,play,sync)
  60. retval=file(HANDLE,filehandle,CLOSE)
  61.  
  62. retval=pmsndx(close,no)
  63. data=message(ask,ok,title,"Welcome",text,"O.K.  Now, I am done...",icon,noicon,moveable,yes)
  64. retval=file(HANDLE,filehandle1,CLOSE)
  65.  
  66. return 'rexx done'
  67.